home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / anim / anim5.dem < prev    next >
Text File  |  1999-09-16  |  218b  |  12 lines
  1. kp=xget("pixmap");
  2. if kp=0, xset("pixmap",1);end;
  3.  
  4. plot3d();
  5. t=-%pi:0.3:%pi;
  6. for i=20:-1:1,xset("wwpc");
  7.     plot3d1(t,t,sin((i/10)*t)'*cos((i/10)*t),35,45," ",[2,0,0])
  8.     xset("wshow");
  9. end
  10.  
  11. if kp=0, xset("pixmap",0);end;
  12.